home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / Yerk 3.64 / Supplement / Unsupported / Utilities / iwCtl < prev    next >
Text File  |  1985-01-25  |  637b  |  32 lines
  1. \ iwtest -- Imagewriter test words
  2. \ 24-Jan-85     SSG
  3.  
  4. decimal
  5.  
  6. ( cn ... c0  n -- )  \ Sends n characters to printer.
  7. :  printChars    0 DO pemit LOOP ;
  8.  
  9. \ Extended -- 9 chars per inch.
  10. : extended    110 27 2 printChars ;
  11.  
  12. \ Pica -- 10 chars per inch.
  13. : pica   78 27 2 printchars ;
  14.  
  15. \ Elite -- 12 chars per inch.
  16. : elite   69 27 2 printChars ;
  17.  
  18. \ Pica proportional.
  19. : picaProp  112 27 2 printChars ;
  20.  
  21. \ Elite proportional.
  22. : eliteProp  80 27 2 printChars ;
  23.  
  24. \ Semicondensed (13.4/in)
  25. : semiCond  101 27 2 printChars ;
  26.  
  27. \ Condensed (15/in).
  28. : condensed  113 27 2 printChars ;
  29.  
  30. \ Ultracondensed (17/in.)
  31. : ultraCond  81 27 2 printChars ;
  32.